      Subroutine ReadInput
      Use Global
      Implicit none
      open(10,file='Parameters1.txt',ACTION='read')
           read(10,*) nnt           ! nnt  number of nodes (i.e. discretization points)
           read(10,*) L              ! length of the chamber
           read(10,*) pres_L      ! initial pressure at the Left of the chamber
           read(10,*) pres_R      ! initial pressure at the Right of the chamber
           read(10,*) rho_L        ! initial Density at the Left of the chamber
           read(10,*) rho_R       ! initial Denstyi at the Right of the chamber
           read(10,*) v_L          ! initial velocity at the Left of the chamber
           read(10,*) v_R          ! initial veocity at the Right of the chamber
           read(10,*) gam         ! The specific heat ratio of the gas
           read(10,*) R             ! The individual gas constant
		   read(10,*) Tmax        ! The Maxmum Time
           read(10,*) CFL          ! CFL number
           read(10,*) cd            ! Dissipation 
      close(10)

	  allocate (x(nnt),vcor(nnt))
	  allocate (Pres(nnt), Rho(nnt), v(nnt), v_sound(nnt),U(nnt,3),F(nnt,3))
	  allocate (M(nnt,nnt),Resid(nnt,3),DU(nnt,3))

      End Subroutine